home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Sound_Utils / SampleX / Install_Sample-X < prev    next >
Text File  |  1998-06-24  |  3KB  |  113 lines
  1. ; $VER: Sample-X Install 1.0 (31-5-97)
  2. ; Script by S.Olatubosun 
  3. ;
  4. ; Copy over all needed files
  5. ; add assigns, path changes to user-startup
  6. ; copy xphantom driver, modify Music-X tooltypes
  7.  
  8.  
  9. ; =========WELCOME=======
  10.  
  11.  
  12. (set #chosen_dir
  13.     (askdir
  14.         (prompt "Please specify where to install the software. A new\nsubdirectory entitled 'Sample-X' will be created.")
  15.         (help @askdir-help)
  16.         (default "Work:")
  17.     )
  18. )
  19.  
  20.  
  21. (set #sxdir (tackon #chosen_dir "Sample-X"))
  22.  
  23. (makedir #sxdir
  24.     (prompt "Creating new directory\n\n" #sxdir)
  25.     (help @makedir-help)
  26.     (confirm)
  27. )
  28.  
  29. (copyfiles
  30.     (prompt "Copying Sample-X files...")
  31.     (help @copyfiles-help)
  32.     (source "" )
  33.     (dest #sxdir)
  34.     (pattern "~(Install#?)")
  35.     (confirm)
  36. )
  37.  
  38.  
  39. (set #assign_sx 
  40.     ("assign SampleX: %s\n path Sample-X:util add\n" #sxdir)
  41. )
  42.  
  43.  
  44. (set #assign_prompt 
  45.     (cat "Do you wish to add the following commands to the file \"S:user-startup\" so that your system will be properly configured to use Sample-X?\n\n" #assign_sx)
  46. )
  47.  
  48. (startup "Sample-X"
  49.     (prompt #assign_prompt)
  50.     (help "No help for this function")
  51.     (command #assign_sx)
  52. )
  53.  
  54.  
  55. ; install xphantom driver 
  56.  
  57. (set #install_mx
  58.     (askbool
  59.         (prompt "Do you wish to install the 'xphantom' driver?")
  60.         (help "This driver is needed to allow Music-X to communicate with Sample-X")
  61.         (choices "Yes" "No")
  62.         (default 0)
  63.     )
  64. )
  65.  
  66.  
  67. (if #install_mx
  68.     (if (exists "DEVS:midi" (noreq) )
  69.  
  70. ; in future, check for newer version of xphantom
  71.         (run "copy drivers/xphantom DEVS:midi" )
  72.  
  73.         (abort "the DEVS:midi drawer does not exist. Music-X is not installed on this system\n")
  74.     )
  75. )
  76.  
  77.  
  78. ; change Music-X tooltype
  79.  
  80. (set #install_mx
  81.     (askbool
  82.         (prompt "Do you wish to change MIDIPORT tooltype for Music-X?")
  83.         (help "Music-X needs to know the various ports to which it can send MIDI data.")
  84.         (choices "Yes" "No")
  85.         (default 0)
  86.     )
  87. )
  88.  
  89. (if #install_mx
  90.     (
  91.         (set #mxfile 
  92.             (askfile
  93.                 (prompt "Please select the Music-X executable file")
  94.                 (default "Work:")
  95.                 (help "Since the installer program does not know where Music-X is kept, the user must specify it. This is required so that the MIDIPORT tooltype of Music-X can be changed")
  96.             )
  97.         )
  98.     
  99.         (tooltype 
  100.             (prompt "Changing one Music-X tooltype to read\n\nMIDIPORTS=internal,1A|xphantom,2A\n\nIf you are using other serial ports, please see the Sample-X documentation")
  101.             (help "No help here either")
  102.             (dest #mxfile)
  103.             (settooltype "MIDIPORTS" "internal,1A|xphantom,2A")
  104.             (confirm)
  105.         )
  106.     )
  107. )
  108.  
  109. (makeassign "SampleX" #sxdir)
  110. ;(run "path SampleX:util add")
  111.  
  112. (set @default-dest #sxdir)
  113.